VXFORM5 Aircraft Record Form2- Label4 Tms Rmn Label5 Tms Rmn Label6 Tms Rmn Label7 Description Tms Rmn Label8 Tms Rmn AirCode Tms Rmn AirNNo Tms Rmn AirType Tms Rmn AirTypeHelp Tms Rmn AirDesc Tms Rmn AirNet Tms Rmn Label9 Price Tms Rmn Label10 Tms Rmn Label11 Annual Tms Rmn Label12 Tms Rmn Label13 Gross Wt Tms Rmn Picture2 Label1 Since Overhaul Tms Rmn Label2 Major Tms Rmn AirSMOH Tms Rmn Label3 Tms Rmn AirSPOH Tms Rmn Label16 Tms Rmn AirSTOH Tms Rmn AirPrice Tms Rmn AirYear Tms Rmn Y AirAnnual Tms Rmn AirTTSN Tms Rmn AirGross Tms Rmn Label14 Empty Wt Tms Rmn Picture1 Frame13 Avionics Tms Rmn AirNav1 NavCom1 Tms Rmn AirDME Tms Rmn AirNav2 NavCom2 Tms Rmn AirRnav Tms Rmn AirADF Tms Rmn AirHSI Tms Rmn AirXpndr Transponder Tms Rmn AirRMI Tms Rmn AirGlideSl GlideSlope Tms Rmn AirRadar Radar Tms Rmn Air3LMB Tms Rmn AirAutoP Auto Pilot Tms Rmn AirAudioPan Audio Panel Tms Rmn AirRadarAlt Radar Altimeter Tms Rmn AirELT Tms Rmn AirDeice Deice Tms Rmn AirEmpty Tms Rmn Label15 Fuel Cap Tms Rmn AirFuel Tms Rmn AirSave &Save 3 AirCancel &Cancel 5 AirDelete &Delete AirMemo &Memo AirExit E&xit Q AirStatus Tms Rmn Frame6_DragDrop| Source Frame13_DragDrop? AirDataClear BuyCode) textF CustKey BuyType BuyTypeDescb BuyLow BuyHighE BuyStatus AIrDesc_Change" AirNav1_Click3 AirRnav_Click AirXpndr_ClickX Frame1_DragDrop Frame3_DragDrop{ Label2_ClickW Label3_Click Frame4_DragDropJ Frame10_DragDrop AirYear_Change AirSMOH_Change AirNav2_Click AirDME_ClickQ Air3LMB_Click AirCode AirNNo3 AirType AirDesc AirPrice# AirYear AirAnnual AirTTSNm AirSMOHx AirSPOH AirSTOHY AirGross AirEmpty AirFuel AirNet Air3LMB; Value1 AirADF AirAudioPanP AirAutoP AirDeice AirDMEV AirELT AirGlideSl? AirHSI AirNav1J AirNav2z AirRadar AirRadarAlt AirRMI AirRnav AirXpndr AirDataLoad vxField NumVal vxDouble; b_low CustBuyer@ vxTrueK c_eltp Form_Click Form_LostFocus Form_Load BuyerReturn BROWSE_ADD BuyerDataCleary BuySave Enabled BuyCancel BuyAddX FALSE BuyDelete BROWSE_EDIT BuyerDataLoad# vxRecNo AircraftReturn CustMemo AirStatus AirSave AirCancel" AirDelete@ Aircraftturn AirExit_Click Form_UnloadZ Cancel vxClose vxSelectDbfw AirtypesDbf1 StatesOpen AircustDbf! VXFORM3 VXFORM5 AirAnnual_ChangeN AirAnnual_GotFocus SendMessage GetFocus EM_LIMITTEXT vxFieldSize AirEmpty_Change* AirFuel_Change= AirGross_Change AirNet_Changea AirNet_GotFocusv AirEmpty_GotFocus AirFuel_GotFocus AirGross_KeyPressb KeyAscii AirNNo_Change AirNNo_GotFocus AirPrice_Change AirPrice_GotFocus AirSMOH_GotFocus1 AirSPOH_ChangeC AirSPOH_GotFocusW AirSTOH_Changei AirSTOH_GotFocus} AirTTSN_Change AirTTSN_GotFocus AirType_Change AirType_GotFocus AirYear_GotFocus AirGross_GotFocus AirAnnual_KeyPress AirEmpty_KeyPress AirFuel_KeyPress AirNet_KeyPress3 AirPrice_KeyPressG AirSMOH_KeyPress[ AirSPOH_KeyPresso AirSTOH_KeyPress AirTTSN_KeyPress AirYear_KeyPress AirNNo_KeyPress AirType_KeyPress AirCancel_ClickJ AirDelete_Click vxDeleteRec TypeDataClear TypeStatus< TypeSave TypeCancel TypeAdd TypeDelete TypeReturn FALSSE AirMemo AirType_LostFocus9 EmptyString vxSeek AirbuyerDbfk AircraftDbf( AirTypeHelp_Clickt SaveReturn BROWSE_USER VXFORM4 vxSelectNtxz AirtypesNtxp vxBrowse AirSave_Click SeekKey^ CustCode CustReturn CustStatee AirstateDbf Airstat1Ntx IsBuyer IsSeller CustSeller WasBuyerb WasSeller RDate CDate vxDateFormat% vxAppendBlank vxReplString CustName4 CustCompanyK CustAddress CustCity CustZipX CustPhRes CustPhBus[ CustFax~ vxReplDate vxWrite? CustStatus: vxReplDouble IsTrue' CursorWait CursorArrow AirMemo_Click DisableCustData CustAdd CustBrowsem CustCancelO CustDelete3 CustExit CustNext CustPrevious| CustSave BuyRecs Aircraft RecNum/ vxMemoEdit EnableCustDataC DisableAirDatap vxLockDbf vxLocked vxLockRecord vxUnlock vxInteger vxLong vxIsMemoc Form_Paint VisibleI vxFormFrameW vxCtlStyle VX_RAISE VX_RECESS Picture1 CustCdate CustRdate CustDays Picture2 VXRAISE CurrHwnd VXFORM2 SetFocusAPI BROWSE_DELETE TypeDelete_Click AirReturn vxCtlLength AirCode_Change vxWindowDereg Form5Active AirDataClear AirDataLoad c_nno" c_cat" c_desc c_price" #######0 c_year c_annual c_ttsn #####0 c_smoh c_spoh c_stoh c_gwt" ####0" c_ewt" ####0" c_fuelcap" c_net" #######0 c_lmb" c_adf" c_audpan c_autop" c_deice" c_dme" c_elt" c_glidesl" c_hsi" c_navcom1" c_navcom2" c_radar" c_radaral" c_rmi" c_rnav c_xpndr" Form_Load Record addition request" call general proc to load controls- Edit record AirExit_Click Form_Unload Form5Active = FALSE AirAnnual_GotFocus c_annual# AirNet_GotFocus c_net"# AirEmpty_GotFocus c_ewt"# AirFuel_GotFocus c_fuelcap"# AirGross_KeyPress {Tab}" AirNNo_GotFocus c_nno"# AirPrice_GotFocus c_price"# AirSMOH_GotFocus c_smoh# AirSPOH_GotFocus c_spoh# AirSTOH_GotFocus c_stoh# AirTTSN_GotFocus c_ttsn# AirType_GotFocus c_cat"# AirYear_GotFocus c_year# AirGross_GotFocus c_gwt"# AirAnnual_KeyPress {Tab}" AirEmpty_KeyPress {Tab}" AirFuel_KeyPress {Tab}" AirNet_KeyPress {Tab}" AirPrice_KeyPress {Tab}" AirSMOH_KeyPress {Tab}" AirSPOH_KeyPress {Tab}" AirSTOH_KeyPress {Tab}" AirTTSN_KeyPress {Tab}" AirYear_KeyPress {Tab}" AirNNo_KeyPress convert to uppercase {Tab}" AirType_KeyPress convert to uppercase {Tab}" AirCancel_Click AirDelete_Click get user confirmation of delete Confirm Delete Delete failed" Delete cancelled AirType_LostFocus catname" AirTypeHelp_Click Aircraft Type Help j% = vxSelectDbf(AirtypesDbf) ' re-register database category catname" AirSave_Click verify something in the key field Field cannot be empty" verify unique key if adding Duplicate Key on Add verify that type code is in types file Type code not found" Data passed. Put it away replace strings c_code c_nno" c_cat" c_desc c_year c_annual replace numeric valuesl c_price" c_ttsn c_smoh c_spoh c_stoh c_gwt" c_ewt" c_fuelcap" c_net" replace logical valuesl c_lmb" c_adf" c_audpan c_autop" c_deice" c_dme" c_elt" c_glidesl" c_hsi" c_navcom1" c_navcom2" c_radar" c_radaral" c_rmi" c_rnav c_xpndr" Update status box Record " appended" Record " saved AirMemo_Click Edit memo. Always have an ENABLED form showing to act aso parent to the memo window.E save rec num to goto later make sure form has focus c_memo# in case someone changed Form_Paint